home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIDemos.lzh / Skarla_Authentik.lha / AuthentikHD / Install-Authentik < prev    next >
Text File  |  2002-08-29  |  3KB  |  177 lines
  1. ;****************************
  2.  
  3. (set #sub-dir "")            ;sub directory containing data files
  4. (set #readme-file "ReadMe")        ;name of readme file
  5. (set #highs-file "highs")            ;name of high scores file
  6. (set #cleanup "")            ;files to delete after install
  7. (set #demo "Authentik")
  8.  
  9. ;****************************
  10. ;----------------------------
  11. ; checks if given program is installed, if not abort install
  12. ; #program - to check
  13.  
  14. (procedure P_ChkRun
  15.   (if
  16.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  17.     ("")
  18.     (abort
  19.       (cat
  20.     "You must install \"" #program "\" first!\n"
  21.     "It must be accessible via the path.\n"
  22.     "You can find it in the \"" #package "\" package."
  23.       )
  24.     )
  25.   )
  26. )
  27.  
  28. ;----------------------------
  29. ; Wait for inserting disk
  30. ; IN:  #AD_disk - name of disk
  31. ; OUT: -
  32.  
  33. (procedure P_disk
  34.     (message ("Ensure the file \"%s\" is available in RAM:" #demo))
  35. )
  36.  
  37. ;****************************
  38.  
  39. (if
  40.   (exists #readme-file)
  41.   (if
  42.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  43.     ("")
  44.     (run ("SYS:Utilities/More %s" #readme-file))
  45.   )
  46. )
  47.  
  48. (set #program "xfddecrunch")
  49. (set #package "XFD")
  50. (P_ChkRun)
  51.  
  52.  
  53. (set #program "WHDLoad")
  54. (set #package "WHDLoad") 
  55. (P_ChkRun)
  56.  
  57. (if
  58.   (getenv "WHDLInstPath")
  59.   (set @default-dest (getenv "WHDLInstPath"))
  60. )
  61. (set #dest
  62.   (askdir
  63.     (prompt ("Where should \"%s\" be installed?\nA drawer \"%s\" will be automatically created." @app-name @app-name))
  64.     (help @askdir-help)
  65.     (default @default-dest)
  66.     (disk)
  67.   )
  68. )
  69. (run ("setenv WHDLInstPath \"%s\"\ncopy ENV:WHDLInstPath ENVARC:" @default-dest))
  70. (set #dest (tackon #dest @app-name))
  71. (if
  72.   (exists #dest)
  73.   (
  74.     (set #choice
  75.       (askbool
  76.         (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted?" #dest))
  77.         (default 1)
  78.         (choices "Delete" "Skip")
  79.         (help @askbool-help)
  80.       )
  81.     )
  82.     (if
  83.       (= #choice 1)
  84.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  85.     )
  86.   )
  87. )
  88. (makedir #dest
  89.   (help @makedir-help)
  90.   (infos)
  91. )
  92.  
  93. ;----------------------------
  94.  
  95. (copyfiles
  96.   (help @copyfiles-help)
  97.   (source ("%s.Slave" @app-name))
  98.   (dest #dest)
  99. )
  100. (if
  101.   (exists ("%s.coloricon" @app-name))
  102.   (set #icon
  103.     (askchoice
  104.       (prompt "\nWhich icon would you like to install?\n")
  105.       (default 0)
  106.       (choices "NewIcon" "ColorIcon")
  107.       (help @askchoice-help)
  108.     )
  109.   )
  110.   (set #icon 0)
  111. )
  112. (select #icon
  113.   (set #icon ("%s.newicon" @app-name))
  114.   (set #icon ("%s.coloricon" @app-name))
  115. )
  116. (copyfiles
  117.   (help @copyfiles-help)
  118.   (source #icon)
  119.   (newname ("%s.info" @app-name))
  120.   (dest #dest)
  121. )
  122. (if
  123.   (exists #readme-file)
  124.   (copyfiles
  125.     (help @copyfiles-help)
  126.     (source #readme-file)
  127.     (dest #dest)
  128.   )
  129. )
  130. (if
  131.   (exists ("%s.info" #readme-file))
  132.   (
  133.     (copyfiles
  134.       (help @copyfiles-help)
  135.       (source ("%s.info" #readme-file))
  136.       (dest #dest)
  137.     )
  138.     (tooltype
  139.       (dest (tackon #dest #readme-file))
  140.       (noposition)
  141.     )
  142.   )
  143. )
  144.  
  145. (if
  146.   (= #sub-dir "")
  147.   ("")
  148.   (
  149.     (set #dest (tackon #dest #sub-dir))
  150.     (makedir #dest
  151.       (help @makedir-help)
  152.     )
  153.   )
  154. )
  155. (if
  156.   (exists #highs-file)
  157.   (copyfiles
  158.     (help @copyfiles-help)
  159.     (source #highs-file)
  160.     (dest #dest)
  161.   )
  162. )
  163.  
  164. ;----------------------------
  165.  
  166. (P_Disk)
  167. (if
  168.   (= 0 (run ("xfddecrunch RAM:%s %s >CON:///1000//CLOSE ALL CA" #demo #dest)))
  169.   ("")
  170.   (abort "\"xfddecrunch\" has failed to decompress the demo")
  171. )
  172. ;----------------------------
  173.  
  174. (run ("Delete RAM:%s ALL QUIET FORCE" #demo))
  175.  
  176. (exit)
  177.